home *** CD-ROM | disk | FTP | other *** search
/ Aminet 46 / Aminet 46 (2001)(GTI - Schatztruhe)[!][Dec 2001].iso / Aminet / text / edit / edt10src.lha / txt / scripts / EnumCD.edt < prev   
Text File  |  1995-02-28  |  357b  |  22 lines
  1. /* create enumeration for CD */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ReqNumber "Aufzählung" "Basis:"
  6. PARSE VAR RESULT done from
  7. IF done="OK" THEN DO
  8.   DisplayOff
  9.   Find NEXT "//)"
  10.   found=RESULT
  11.   DO WHILE found
  12.     Find NEXT "//)"
  13.     Find PREV "("
  14.     Right
  15.     Delete LINEEND
  16.     Insert from||"//)"
  17.     from=from+1
  18.     Find NEXT "//)"
  19.     found=RESULT
  20.   END
  21.   DisplayOn
  22. END